object fmDOKTORBR: TfmDOKTORBR
  Left = 58
  Top = 30
  ActiveControl = EditAd
  BorderStyle = bsDialog
  Caption = 'DOKTOR   KAYITLARI'
  ClientHeight = 383
  ClientWidth = 523
  Color = clSilver
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'Arial'
  Font.Style = []
  KeyPreview = True
  Position = poScreenCenter
  OnKeyDown = FormKeyDown
  PixelsPerInch = 96
  TextHeight = 14
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 523
    Height = 57
    HelpContext = 307
    Align = alTop
    BevelInner = bvLowered
    BevelWidth = 3
    BorderWidth = 1
    Color = clNavy
    Ctl3D = True
    ParentCtl3D = False
    TabOrder = 0
    object Navigator: TDBNavigator
      Left = 24
      Top = 17
      Width = 135
      Height = 26
      DataSource = doktorBrSRC
      VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbRefresh]
      Ctl3D = False
      Hints.Strings = (
        '�lk kay�t'
        '�nceki'
        'Sonraki'
        'SonKay�t'
        'Yeni Kay�t'
        'Kay�t Sil'
        'D�zelt'
        'Kaydet'
        'Vazge�'
        'Tazele')
      ParentCtl3D = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      TabStop = True
    end
    object BitBtnSec: TBitBtn
      Left = 417
      Top = 16
      Width = 89
      Height = 27
      HelpContext = 502
      Caption = '&Se�'
      Font.Color = clNavy
      Font.Height = -12
      Font.Name = 'Arial Tur'
      Font.Style = [fsBold]
      ParentFont = False
      ParentShowHint = False
      ShowHint = False
      TabOrder = 1
      Visible = False
      OnClick = BitBtnSecClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333303
        333333333333337FF3333333333333903333333333333377FF33333333333399
        03333FFFFFFFFF777FF3000000999999903377777777777777FF0FFFF0999999
        99037F3337777777777F0FFFF099999999907F3FF777777777770F00F0999999
        99037F773777777777730FFFF099999990337F3FF777777777330F00FFFFF099
        03337F773333377773330FFFFFFFF09033337F3FF3FFF77733330F00F0000003
        33337F773777777333330FFFF0FF033333337F3FF7F3733333330F08F0F03333
        33337F7737F7333333330FFFF003333333337FFFF77333333333000000333333
        3333777777333333333333333333333333333333333333333333}
      Layout = blGlyphRight
      NumGlyphs = 2
      Spacing = 11
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 57
    Width = 523
    Height = 269
    HelpContext = 307
    Align = alClient
    BevelInner = bvLowered
    BevelOuter = bvLowered
    BorderWidth = 4
    Caption = 'Panel2'
    Color = clSilver
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    object Label3: TLabel
      Left = 106
      Top = 7
      Width = 56
      Height = 15
      Caption = 'Aranan Ad'
      Font.Color = clNavy
      Font.Height = -12
      Font.Name = 'Arial Tur'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object Label4: TLabel
      Left = 264
      Top = 7
      Width = 76
      Height = 15
      Caption = 'Aranan Soyad'
      Font.Color = clNavy
      Font.Height = -12
      Font.Name = 'Arial Tur'
      Font.Style = []
      ParentFont = False
    end
    object DBGridDR: TDBGrid
      Left = 91
      Top = 50
      Width = 349
      Height = 210
      Color = clTeal
      Ctl3D = True
      DataSource = doktorBrSRC
      FixedColor = clSilver
      Font.Color = clWhite
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
      ParentCtl3D = False
      ParentFont = False
      ReadOnly = True
      TabOrder = 2
      TitleFont.Color = clNavy
      TitleFont.Height = -12
      TitleFont.Name = 'Arial'
      TitleFont.Style = [fsBold]
      OnDblClick = DBGridDRDblClick
    end
    object EditAd: TEdit
      Left = 106
      Top = 23
      Width = 151
      Height = 23
      Color = clSilver
      Font.Color = clNavy
      Font.Height = -12
      Font.Name = 'Arial Tur'
      Font.Style = []
      MaxLength = 18
      ParentFont = False
      TabOrder = 0
      OnEnter = EditAdEnter
      OnKeyUp = EditAdKeyUp
    end
    object EditSoyad: TEdit
      Left = 262
      Top = 23
      Width = 151
      Height = 23
      Color = clSilver
      Font.Color = clNavy
      Font.Height = -12
      Font.Name = 'Arial Tur'
      Font.Style = []
      MaxLength = 18
      ParentFont = False
      TabOrder = 1
      OnEnter = EditSoyadEnter
      OnKeyUp = EditSoyadKeyUp
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 326
    Width = 523
    Height = 57
    HelpContext = 307
    Align = alBottom
    BevelInner = bvLowered
    BevelWidth = 3
    BorderWidth = 1
    Color = clNavy
    TabOrder = 2
    object BitBtnYeni: TBitBtn
      Left = 11
      Top = 15
      Width = 89
      Height = 27
      Hint = 'Insert Tu�u'
      Caption = 'Yeni Kay�t'
      Font.Color = clNavy
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnClick = BitBtnYeniClick
      OnKeyDown = BitBtnYeniKeyDown
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        33333333FF33333333FF333993333333300033377F3333333777333993333333
        300033F77FFF3333377739999993333333333777777F3333333F399999933333
        33003777777333333377333993333333330033377F3333333377333993333333
        3333333773333333333F333333333333330033333333F33333773333333C3333
        330033333337FF3333773333333CC333333333FFFFF77FFF3FF33CCCCCCCCCC3
        993337777777777F77F33CCCCCCCCCC3993337777777777377333333333CC333
        333333333337733333FF3333333C333330003333333733333777333333333333
        3000333333333333377733333333333333333333333333333333}
      Layout = blGlyphRight
      NumGlyphs = 3
    end
    object BitBtnDegis: TBitBtn
      Left = 114
      Top = 15
      Width = 89
      Height = 27
      Caption = '&De�i�tir'
      Font.Color = clNavy
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      ParentShowHint = False
      ShowHint = False
      TabOrder = 1
      OnClick = BitBtnDegisClick
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
        000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F
        00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF
        F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B
        0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F
        FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF
        FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F
        0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF
        00333377737FFFFF7733333033000000033333373377777773330000}
      Layout = blGlyphRight
      NumGlyphs = 2
      Spacing = 5
    end
    object BitBtnSil: TBitBtn
      Left = 217
      Top = 15
      Width = 89
      Height = 27
      Hint = 'Ctrl Delete Tu�u'
      Caption = 'Kay�t Sil'
      Font.Color = clNavy
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
      OnClick = BitBtnSilClick
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00500005000555
        555557777F777555F55500000000555055557777777755F75555005500055055
        555577F5777F57555555005550055555555577FF577F5FF55555500550050055
        5555577FF77577FF555555005050110555555577F757777FF555555505099910
        555555FF75777777FF555005550999910555577F5F77777775F5500505509990
        3055577F75F77777575F55005055090B030555775755777575755555555550B0
        B03055555F555757575755550555550B0B335555755555757555555555555550
        BBB35555F55555575F555550555555550BBB55575555555575F5555555555555
        50BB555555555555575F555555555555550B55555555555555750000}
      Layout = blGlyphRight
      NumGlyphs = 2
      Spacing = 2
    end
    object BitBtnKapat: TBitBtn
      Left = 320
      Top = 15
      Width = 89
      Height = 27
      Hint = 'Alt-F4 Tu�u'
      Caption = 'Kapat'
      Font.Color = clNavy
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 3
      Kind = bkClose
      Layout = blGlyphRight
    end
    object BitBtnHelp: TBitBtn
      Left = 423
      Top = 15
      Width = 89
      Height = 27
      Hint = 'F1 Tu�u'
      HelpContext = 306
      Caption = 'Yard�m'
      Font.Color = clNavy
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 4
      Kind = bkHelp
      Layout = blGlyphRight
    end
  end
  object doktorBrSRC: TDataSource
    DataSet = doktorBr
    Left = 209
    Top = 15
  end
  object doktorBr: TTable
    DatabaseName = 'ECZ'
    IndexName = 'DR_AD_SOY'
    TableName = 'DR.DB'
    Left = 246
    Top = 15
    object doktorBrDRAD: TStringField
      DisplayLabel = 'Ad�'
      FieldName = 'DRAD'
      Size = 18
    end
    object doktorBrDRSOYAD: TStringField
      DisplayLabel = 'Soyad�'
      FieldName = 'DRSOYAD'
      Size = 18
    end
    object doktorBrDRKOD: TIntegerField
      DisplayLabel = 'Kodu'
      DisplayWidth = 7
      FieldName = 'DRKOD'
    end
  end
  object Query1: TQuery
    DatabaseName = 'ECZ'
    Params.Data = {010001000464726E6F00030400000000000000}
    SQL.Strings = (
      'SELECT RECETE.DRKOD'
      'FROM RECETE'
      'WHERE DRKOD=:drno')
    Left = 377
    Top = 106
  end
end